home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 262 < prev    next >
Encoding:
Text File  |  1999-08-04  |  585 b   |  66 lines
  1. //-------- SHELL --------
  2.  
  3. SET_FRAME 1
  4.  
  5. SPEED 6
  6.  
  7. DIRECTION 24
  8. MOVE 15
  9.  
  10. LABEL 1
  11.  
  12.  
  13. // Right
  14. GOSUB 2
  15. SPEED 6
  16. DIRECTION 0
  17. MOVE 20
  18.  
  19. // Down
  20. GOSUB 2
  21. SPEED 10
  22. DIRECTION 24
  23. MOVE 16
  24.  
  25. // Left
  26. GOSUB 2
  27. SPEED 6
  28. DIRECTION 16
  29. MOVE 20
  30.  
  31. // Left
  32. GOSUB 2
  33. SPEED 6
  34. DIRECTION 16
  35. MOVE 20
  36.  
  37. // Down
  38. GOSUB 2
  39. SPEED 10
  40. DIRECTION 24
  41. MOVE 16
  42.  
  43. // Right
  44. GOSUB 2
  45. SPEED 6
  46. DIRECTION 0
  47. MOVE 20
  48.  
  49. GOTO_LABEL 1
  50.  
  51. //---------- Kuchi paku
  52. LABEL 2
  53.  
  54. SET_FRAME 0
  55. STOP 3
  56. SET_FRAME 1
  57. STOP 3
  58. SET_FRAME 0
  59. STOP 3
  60. SET_FRAME 1
  61. STOP 3
  62. SET_FRAME 0
  63. STOP 3
  64. SET_FRAME 1
  65.  
  66. RETURN